-- card: 3054 from stack: in.2
-- bmap block id: 3092
-- flags: 4000
-- background id: 2598
-- name: Data entry
----- HyperTalk script -----
on openCard

  If "enter" is in card field "name"
  then Select line 1 of card field "name"

end openCard



-- part 2 (field)
-- low flags: 02
-- high flags: 0004
-- rect: left=96 top=58 right=77 bottom=266
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Name


-- part 49 (field)
-- low flags: 02
-- high flags: 0004
-- rect: left=371 top=57 right=77 bottom=405
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: monthNumber


-- part 50 (field)
-- low flags: 02
-- high flags: 0004
-- rect: left=418 top=58 right=77 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: dayNumber
----- HyperTalk script -----
on openField
  Put card field "monthNumber" into previousField
  --Set highLight of card button "Daylight Savings" to false

  --  *********************************************
  --  **  Check if any alpha characters present  **
  --  *********************************************

  Put the length of previousField into len
  Put true into isNumber
  Repeat with i = 1 to len
    If character i of previousField is not in "0123456789" then
      Put false into isNumber
      exit repeat
    end if
  end repeat

  --  ***********************************
  --  **  Check input data is in range **
  --  ***********************************

  If  isNumber is false then
    Answer "Month must be 1 to 12; found [" & previousField & "]"
    Select line 1 of card field "monthNumber"
    exit openfield
  end if

  If (previousField - trunc(previousField) <> 0) or (previousField < 1) or (previousField > 12)  then
    Answer "Month must be 1 to 12; found [" & previousField & "]"
    Select line 1 of card field "monthNumber"
    exit openfield
  end if
end openField


-- part 51 (field)
-- low flags: 02
-- high flags: 0004
-- rect: left=454 top=58 right=78 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: yearNumber
----- HyperTalk script -----
on openField
  Put card field "dayNumber" into previousField

  --  *********************************************
  --  **  Check if any alpha characters present  **
  --  *********************************************

  Put the length of previousField into len
  Put true into isNumber
  Repeat with i = 1 to len
    If character i of previousField is not in "0123456789" then
      Put false into isNumber
      exit repeat
    end if
  end repeat

  --  ***********************************
  --  **  Check input data is in range **
  --  ***********************************

  If  isNumber is false then
    Answer "Day must be 1 to 31; found [" & previousField & "]"
    Select line 1 of card field "dayNumber"
    exit openfield
  end if

  If (previousField - trunc(previousField) <> 0) or (previousField < 1) or (previousField > 31)  then
    Answer "Day must be 1 to 31; found [" & previousField & "]"
    Select line 1 of card field "dayNumber"
    exit openfield
  end if
end openField


-- part 52 (field)
-- low flags: 02
-- high flags: 0004
-- rect: left=347 top=116 right=135 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hourNumber
----- HyperTalk script -----
on openField
  Put card field "yearNumber" into previousField

  --  *********************************************
  --  **  Check if any alpha characters present  **
  --  *********************************************

  Put the length of previousField into len
  Put true into isNumber
  Repeat with i = 1 to len
    If character i of previousField is not in "0123456789" then
      Put false into isNumber
      exit repeat
    end if
  end repeat

  --  ***********************************
  --  **  Check input data is in range **
  --  ***********************************

  If  isNumber is false then
    Answer "Year must be 1900 to 2000; found [" & previousField & "]"
    Select line 1 of card field "yearNumber"
    exit openfield
  end if

  If (previousField - trunc(previousField) <> 0) or (previousField > 2000) or (previousField < 1900)  then
    Answer "Year must be 1900 to 2000; found [" & previousField & "]"
    Select line 1 of card field "yearNumber"
    exit openfield
  end if
end openField


-- part 54 (field)
-- low flags: 02
-- high flags: 0004
-- rect: left=386 top=116 right=136 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: minuteNumber
----- HyperTalk script -----
on openField
  Put card field "hourNumber" into previousField

  --  *********************************************
  --  **  Check if any alpha characters present  **
  --  *********************************************

  Put the length of previousField into len
  Put true into isNumber
  Repeat with i = 1 to len
    Put character i of previousField into testChar
    --Put "[" & testChar & "]"
    If testChar is not in "0123456789" then
      Put false into isNumber
      exit repeat
    end if
  end repeat

  --  ***********************************
  --  **  Check input data is in range **
  --  ***********************************

  If  isNumber is false then
    Answer "Hour must be 1 to 12; found [" & previousField & "]"
    Select line 1 of card field "hourNumber"
    exit openfield
  end if

  If (previousField - trunc(previousField) <> 0) or (previousField > 12) or (previousField < 1)  then
    Answer "Hour must be 1 to 12; found [" & previousField & "]"
    Select line 1 of card field "hourNumber"
    exit openfield
  end if
end openField


-- part 3 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=48 top=216 right=250 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Place


-- part 7 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=218 top=260 right=279 bottom=266
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Zone


-- part 19 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=415 top=129 right=141 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AM
----- HyperTalk script -----
on mouseUp
  if hilite of card button "am" is true
  then set hilite of card button "pm" to false
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=414 top=114 right=126 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PM
----- HyperTalk script -----
on mouseUp
  if hilite of card button "pm" is true
  then set hilite of card button "am" to false
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=331 top=154 right=170 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Daylight Savings


-- part 24 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=119 top=259 right=278 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Longitude


-- part 25 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=33 top=259 right=276 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Latitude


-- part 28 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=37 top=190 right=210 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Click here to Select Birthplace
----- HyperTalk script -----
on mouseUp
  visual venetian blinds very slow
  go to card "Birthplace"
end mouseUp


-- part 36 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=171 top=124 right=138 bottom=322
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Unknown birthtime
----- HyperTalk script -----
on mouseUp

  if hilite of me is true then

    answer "12:01pm (noon) assumed at birthplace" with "Continue"

    Put 12 into card field "hourNumber"
    Put "01" into card field "minuteNumber"
    set hilite of card button "pm" to true
    set hilite of card button "am" to false
    set hilite of card button "Daylight Savings" to false

  end if

end mouseUp


-- part 60 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=473 top=302 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 57 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=93 top=117 right=160 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Birth Time Help
----- HyperTalk script -----
on mouseUp

  Lock screen
  Set the visible of card field "mask birth data entry" of card "first" to true
  Go to card "First"
  Put "__Birth Time" into topic
  Find string topic
  Unlock screen with iris open very slowly
  Repeat for 5
    Find string topic
  end repeat

end mouseUp



-- part 58 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=463 top=123 right=170 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DST Help
----- HyperTalk script -----
on mouseUp

  Lock screen
  Set the visible of card field "mask birth data entry" of card "first" to true
  Go to card "First"
  Put "__Daylight Savings" into topic
  Find string topic
  Unlock screen with iris open very slowly
  Repeat for 5
    Find string topic
  end repeat

end mouseUp



-- part 61 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=301 top=12 right=36 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 1016 / 1016
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cursor


-- part 63 (button)
-- low flags: 00
-- high flags: A001
-- rect: left=442 top=290 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CONTINUE
----- HyperTalk script -----
on mouseUp
  --
  --  **************************************
  --  **  Empty fields in card "Planets"  **
  --  **************************************
  --
  Put empty into card field "Sign names" of card "planets"
  Put empty into card field "Planet DDsignMM" of card "planets"
  Put empty into card field "Planet symbols" of card "planets"
  Put empty into card field "House" of card "planets"
  --
  repeat with N = 2 to 13
    do "Put empty into card field PlanetAspects" & N & " of card planets"
    set cursor to busy
  end repeat
  repeat with N = 2 to 13
    do "Put empty into card field PlanetAspects" & N & " of card planets"
    set cursor to busy
  end repeat
  --
  visual effect wipe right very slowly
  Go to card "Planets"
  calculate
end mouseUp



-- part 64 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=379 top=261 right=277 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Equal
----- HyperTalk script -----
on mouseUp

  if hilite of me is true then
    set hilite of card button "Koch" to false
    set hilite of card button "Placidus" to false
  end if

  --  ******************************************************
  --  **  FORCE PLACIDUS AS DEFAULT IF NO SYSTEM CHOOSEN  **
  --  ******************************************************

  if (hilite of card button "Equal" is false) and (hilite of card button "Placidus" is false) and (hilite of card button "Koch" is false)
  then set hilite of card button "Placidus" to true

end mouseUp



-- part 65 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=298 top=261 right=276 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Placidus
----- HyperTalk script -----
on mouseUp

  if hilite of me is true then
    set hilite of card button "Koch" to false
    set hilite of card button "Equal" to false
  end if

  --  ******************************************************
  --  **  FORCE PLACIDUS AS DEFAULT IF NO SYSTEM CHOOSEN  **
  --  ******************************************************

  if (hilite of card button "Equal" is false) and (hilite of card button "Placidus" is false) and (hilite of card button "Koch" is false)
  then set hilite of card button "Placidus" to true

end mouseUp



-- part 66 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=447 top=262 right=276 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Koch
----- HyperTalk script -----
on mouseUp

  if hilite of me is true then
    set hilite of card button "Equal" to false
    set hilite of card button "Placidus" to false
  end if

  --  ******************************************************
  --  **  FORCE PLACIDUS AS DEFAULT IF NO SYSTEM CHOOSEN  **
  --  ******************************************************

  if (hilite of card button "Equal" is false) and (hilite of card button "Placidus" is false) and (hilite of card button "Koch" is false)
  then set hilite of card button "Placidus" to true

end mouseUp



-- part contents for card part 7
----- text -----
08:00

-- part contents for card part 24
----- text -----
121w17

-- part contents for card part 25
----- text -----
37n58

-- part contents for card part 50
----- text -----
13

-- part contents for card part 51
----- text -----
1990

-- part contents for card part 52
----- text -----
4

-- part contents for card part 54
----- text -----
34

-- part contents for card part 3
----- text -----
Stockton, CA

-- part contents for card part 2
----- text -----
First enter name

-- part contents for card part 49
----- text -----
12